(ada-stmt-add-to-ada-menu): Handle the menu pseudo-keys generated by

easymenu which are lowercase in Emacs 21.4.

diff --git a/lisp/progmodes/ada-stmt.el b/lisp/progmodes/ada-stmt.el
index 277d5d285b39248ed49b52360ce687b023e677d6..cb9e1dcf9340d55bacc92da7fbeff98db98ebce8 100644 (file)
--- a/lisp/progmodes/ada-stmt.el
+++ b/lisp/progmodes/ada-stmt.el
@@ -114,7 +114,10 @@
                                        :included '(string= mode-name "Ada"))
                                  menu))
 
-      (define-key-after (lookup-key ada-mode-map [menu-bar Ada]) [Templates]
+      (define-key-after (or
+                        (lookup-key ada-mode-map [menu-bar Ada])
+                        (lookup-key ada-mode-map [menu-bar ada]))
+       [Templates]
        (list 'menu-item
              "Templates"
              (easy-menu-create-menu "Templates" menu)